home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
Amiga-E
/
E_v3.2a_extras
/
PdSrc
/
Lang
/
Yax
/
fac.yax
next >
Wrap
Lisp/Scheme
|
1992-09-02
|
103b
|
3 lines
(defun fac (n) (if (eq n 1) 1 (* (fac (sub n 1)) n)))
(write 'compute factorial of: ' (fac (readint)))